home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 2: CDPD 1
/
Almathera Ten on Ten - Disc 2: CDPD 1.iso
/
pd
/
201-225
/
214
/
smarticon
/
src
/
hook.asm
< prev
next >
Wrap
Assembly Source File
|
1995-03-13
|
3KB
|
108 lines
***************************************************************************
* *
* SmartIcon, release 1.0 - An Intuition object iconifier for the Amiga *
* Copyright (c) 1988 Gauthier H. Groult *
* *
* Written in January 1988 by Gauthier H. Groult *
* 33, Boulevard Saint Denis, *
* 92400 Courbevoie *
* France - Europe *
* Tel: (16) 1 47 89 09 54 *
* email: mcvax!inria!litp!germinal!groult *
* *
* This source code is not in public domain, please do not distribute. *
* The binary program is shareaware. Read docs files for details. *
* *
***************************************************************************
* This code contains the routines that are called instead of the normal *
* Rom routines. *
* Speacial action is performed either before or after the normal Rom *
* code *
* *
* This code is rather heavy but it works. *
include 'include:exec/types.i'
GADGETUP EQU $00000040
xref _owhook
xref _cwhook
xref _mihook
xref _pmhook
xdef _OWentry_point
xdef _CWentry_point
xdef _MIentry_point
xdef _PMentry_point
STRUCTURE HK,0
LONG HK_SYSFUNC
LONG HK_MYFUNC
LONG HK_ENTRY
LONG HK_LVO
regboys reg d1/d2/d3/d5/a0/a1/a2/a3/a4/a5/a6
_OWentry_point: ; entry point for OpenWindow()
movem.l regboys,-(sp)
lea _owhook,a3
move.l HK_SYSFUNC(a3),a5
jsr (a5)
move.l d0,-(sp)
move.l HK_MYFUNC(a3),a5
jsr (a5)
move.l (sp)+,d0
movem.l (sp)+,regboys
rts
_CWentry_point: ; entry point for CloseWindw()
movem.l regboys,-(sp)
lea _cwhook,a3
move.l a0,-(sp)
move.l HK_MYFUNC(a3),a5
jsr (a5)
move.l (sp)+,a0
move.l HK_SYSFUNC(a3),a5
jsr (a5)
movem.l (sp)+,regboys
rts
_MIentry_point: ; entry point for ModifyIDCM()
movem.l regboys,-(sp)
lea _mihook,a3
ori.l #GADGETUP,d0
move.l HK_SYSFUNC(a3),a5
jsr (a5)
movem.l (sp)+,regboys
rts
_PMentry_point: ; entry point for PutMsg()
movem.l regboys,-(sp)
lea _pmhook,a3
movem.l regboys,-(sp)
move.l a1,-(sp)
move.l a0,-(sp)
move.l HK_MYFUNC(a3),a5
jsr (a5)
move.l (sp)+,a0
move.l (sp)+,a1
movem.l (sp)+,regboys
lea _pmhook,a3
move.l HK_SYSFUNC(a3),a5
jsr (a5)
movem.l (sp)+,regboys
rts
end